object Form1: TForm1
  Left = 280
  Top = 78
  AlphaBlendValue = 128
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'DefinedCrypt v5.0! (Programa de Demonstra'#231#227'o)'
  ClientHeight = 430
  ClientWidth = 587
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  DesignSize = (
    587
    430)
  PixelsPerInch = 96
  TextHeight = 13
  object Shape1: TShape
    Left = 156
    Top = 290
    Width = 172
    Height = 17
    Brush.Color = clBlack
    Pen.Color = clRed
  end
  object Label1: TLabel
    Left = 3
    Top = 0
    Width = 581
    Height = 13
    Alignment = taCenter
    Anchors = [akLeft, akTop, akRight]
    AutoSize = False
    Caption = 'Digite abaixo o texto a ser criptografado'
  end
  object Label3: TLabel
    Left = 3
    Top = 414
    Width = 581
    Height = 13
    Alignment = taCenter
    Anchors = [akLeft, akRight, akBottom]
    AutoSize = False
    Caption = 'Digite acima o texto a ser descriptografado'
  end
  object Label4: TLabel
    Left = 3
    Top = 272
    Width = 150
    Height = 13
    Caption = 'Progresso da (des)criptografia:'
  end
  object Label5: TLabel
    Left = 3
    Top = 292
    Width = 141
    Height = 13
    Caption = 'Caracteres (des)encriptados:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 157
    Top = 291
    Width = 170
    Height = 15
    Alignment = taCenter
    AutoSize = False
    Caption = '0/0'
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label7: TLabel
    Left = 430
    Top = 292
    Width = 28
    Height = 13
    Caption = '00:00'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label8: TLabel
    Left = 557
    Top = 292
    Width = 28
    Height = 13
    Caption = '00:00'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label9: TLabel
    Left = 344
    Top = 292
    Width = 84
    Height = 13
    Caption = 'Tempo decorrido:'
  end
  object Label10: TLabel
    Left = 473
    Top = 292
    Width = 82
    Height = 13
    Caption = 'Tempo estimado:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Memo1: TMemo
    Left = 3
    Top = 15
    Width = 581
    Height = 83
    Anchors = [akLeft, akTop, akRight]
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Courier New'
    Font.Style = []
    Lines.Strings = (
      
        'Este texto cont'#233'm caracteres acentuados. A acentua'#231#227'o '#233' um probl' +
        'ema no mundo das strings modernas... 1234 '#172#162#163#179#178#185#178#179#163'?'#176#176#170#186#176)
    ParentFont = False
    PopupMenu = PopupMenu1
    ScrollBars = ssBoth
    TabOrder = 0
    WordWrap = False
    OnChange = Memo1Change
    OnEnter = Memo1Enter
  end
  object Memo2: TMemo
    Tag = 1
    Left = 3
    Top = 310
    Width = 581
    Height = 104
    Anchors = [akLeft, akRight, akBottom]
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
    PopupMenu = PopupMenu1
    ScrollBars = ssBoth
    TabOrder = 4
    WordWrap = False
    OnChange = Memo2Change
    OnEnter = Memo2Enter
  end
  object BitBtn1: TBitBtn
    Left = 3
    Top = 104
    Width = 113
    Height = 54
    Caption = 'Encriptar            '
    Enabled = False
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
      333333333337F33333333333333033333333333333373F333333333333090333
      33333333337F7F33333333333309033333333333337373F33333333330999033
      3333333337F337F33333333330999033333333333733373F3333333309999903
      333333337F33337F33333333099999033333333373333373F333333099999990
      33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
      33333333337F7F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333300033333333333337773333333}
    Layout = blGlyphRight
    NumGlyphs = 2
    TabOrder = 1
    OnClick = BitBtn1Click
  end
  object ProgressBar1: TProgressBar
    Left = 156
    Top = 270
    Width = 428
    Height = 17
    Min = 1
    Position = 1
    TabOrder = 3
  end
  object RadioGroupMetodos: TRadioGroup
    Left = 3
    Top = 161
    Width = 154
    Height = 105
    Caption = ' M'#233'todos de funcionamento '
    ItemIndex = 0
    Items.Strings = (
      'Criptografia sim'#233'trica'
      'Criptografia assim'#233'trica')
    TabOrder = 5
    OnClick = RadioGroupMetodosClick
  end
  object GroupBoxInformacoesRequeridas: TGroupBox
    Left = 160
    Top = 161
    Width = 424
    Height = 105
    Caption = ' Informa'#231#245'es requeridas '
    TabOrder = 6
    object PanelAssimetrica: TPanel
      Left = 1
      Top = 13
      Width = 421
      Height = 90
      BevelOuter = bvNone
      TabOrder = 1
      object LabelChavePublica: TLabel
        Left = 4
        Top = 70
        Width = 71
        Height = 13
        Caption = 'Chave p'#250'blica:'
      end
      object LabelChavePrivada: TLabel
        Left = 213
        Top = 70
        Width = 74
        Height = 13
        Caption = 'Chave privada:'
      end
      object EditPrivateKey: TEdit
        Left = 290
        Top = 66
        Width = 128
        Height = 21
        TabOrder = 0
        OnChange = EditPrivateKeyChange
      end
      object EditPublicKey: TEdit
        Left = 78
        Top = 66
        Width = 128
        Height = 21
        TabOrder = 1
        OnChange = EditPublicKeyChange
      end
      object StaticTextAssimetrica: TStaticText
        Left = 4
        Top = 0
        Width = 413
        Height = 52
        Alignment = taCenter
        AutoSize = False
        Caption = 
          'Na criptografia assim'#233'trica a senha usada para criptografar (cha' +
          've p'#250'blica) '#233' diferente da usada pra descriptografar (chave priv' +
          'ada) mas para cada chave privada h'#225' uma e apenas uma chave p'#250'bli' +
          'ca. N'#227'o '#233' poss'#237'vel obter a chave privada a partir da chave p'#250'bli' +
          'ca por isso este m'#233'todo '#233' extremamente seguro.'
        PopupMenu = PopupMenuParDeChaves
        TabOrder = 2
        Transparent = False
      end
    end
    object PanelSimetrica: TPanel
      Left = 1
      Top = 13
      Width = 421
      Height = 90
      BevelOuter = bvNone
      TabOrder = 0
      DesignSize = (
        421
        90)
      object LabelPassword: TLabel
        Left = 0
        Top = 51
        Width = 421
        Height = 13
        Alignment = taCenter
        AutoSize = False
        Caption = 'Digite abaixo a chave de (des)criptografia'
      end
      object EditPassword: TEdit
        Left = 4
        Top = 66
        Width = 414
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        TabOrder = 0
        OnChange = EditPasswordChange
      end
      object StaticTextSimetrica: TStaticText
        Left = 4
        Top = 0
        Width = 413
        Height = 39
        Alignment = taCenter
        AutoSize = False
        Caption = 
          'A criptografia sim'#233'trica '#233' aquela em que uma mesma chave (senha)' +
          ' '#233' usada tanto para criptografar quanto para descriptografar. Es' +
          'se m'#233'todo de criptografia '#233' desaconselhado por ser inseguro.'
        TabOrder = 1
        Transparent = False
      end
    end
  end
  object Panel1: TPanel
    Left = 120
    Top = 104
    Width = 122
    Height = 54
    BevelInner = bvLowered
    TabOrder = 7
    object RadioButtonNormal: TRadioButton
      Left = 4
      Top = 4
      Width = 115
      Height = 12
      Caption = '        M'#233'todo normal'
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = RadioButtonNormalClick
    end
    object RadioButtonLinhaAlinha: TRadioButton
      Left = 4
      Top = 38
      Width = 115
      Height = 12
      Alignment = taLeftJustify
      BiDiMode = bdLeftToRight
      Caption = 'M'#233'todo linha a linha'
      ParentBiDiMode = False
      TabOrder = 1
      OnClick = RadioButtonLinhaAlinhaClick
    end
  end
  object Panel2: TPanel
    Left = 248
    Top = 104
    Width = 217
    Height = 54
    BevelInner = bvLowered
    TabOrder = 8
    object RadioButtonFull: TRadioButton
      Left = 4
      Top = 4
      Width = 207
      Height = 13
      Caption = 'Conjunto completo de caracteres ASCII'
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = RadioButtonFullClick
    end
    object RadioButtonNoControl: TRadioButton
      Left = 4
      Top = 21
      Width = 207
      Height = 13
      Caption = 'N'#227'o usar caracteres de controle'
      TabOrder = 1
      OnClick = RadioButtonNoControlClick
    end
    object RadioButtonSafe: TRadioButton
      Left = 4
      Top = 38
      Width = 207
      Height = 13
      Caption = 'Conjunto "seguro"'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = RadioButtonSafeClick
    end
  end
  object BitBtn2: TBitBtn
    Left = 471
    Top = 104
    Width = 113
    Height = 54
    Caption = 'Desencriptar      '
    Enabled = False
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
      3333333333777F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
      3333333777737777F333333099999990333333373F3333373333333309999903
      333333337F33337F33333333099999033333333373F333733333333330999033
      3333333337F337F3333333333099903333333333373F37333333333333090333
      33333333337F7F33333333333309033333333333337373333333333333303333
      333333333337F333333333333330333333333333333733333333}
    Layout = blGlyphRight
    NumGlyphs = 2
    TabOrder = 2
    OnClick = BitBtn2Click
  end
  object ApplicationEvents1: TApplicationEvents
    OnMessage = ApplicationEvents1Message
    Left = 5
    Top = 17
  end
  object DefinedCrypt1: TDefinedCrypt
    OnUpdateProgress = DefinedCrypt1UpdateProgress
    Left = 61
    Top = 17
  end
  object OpenDialog1: TOpenDialog
    Filter = 'Todos os arquivos (*.*)|*.*'
    Options = [ofHideReadOnly]
    Left = 89
    Top = 17
  end
  object PopupMenu1: TPopupMenu
    Left = 147
    Top = 17
    object Carregar1: TMenuItem
      Caption = 'Carregar...'
      OnClick = Carregar1Click
    end
    object Salvar1: TMenuItem
      Caption = 'Salvar...'
      OnClick = Salvar1Click
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object Desfazer1: TMenuItem
      Caption = 'Desfazer'
      OnClick = Desfazer1Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object Recortar1: TMenuItem
      Caption = 'Recortar'
      OnClick = Recortar1Click
    end
    object Copiar1: TMenuItem
      Caption = 'Copiar'
      OnClick = Copiar1Click
    end
    object Colar1: TMenuItem
      Caption = 'Colar'
      OnClick = Colar1Click
    end
    object Excluir1: TMenuItem
      Caption = 'Excluir'
      OnClick = Excluir1Click
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object SelectAll: TMenuItem
      Caption = 'Selecionar tudo'
      ShortCut = 16449
      OnClick = SelectAllClick
    end
  end
  object SaveDialog1: TSaveDialog
    Filter = 'Todos os arquivos (*.*)|*.*'
    Options = [ofOverwritePrompt, ofHideReadOnly]
    Left = 118
    Top = 17
  end
  object PopupMenuParDeChaves: TPopupMenu
    Left = 176
    Top = 17
    object Gerarumpardechavespblicaprivada1: TMenuItem
      Caption = 'Gerar um par de chaves (p'#250'blica + privada)'
      OnClick = Gerarumpardechavespblicaprivada1Click
    end
  end
end
